1 /*
 2  * Copyright (C) 2005 - 2011 MaNGOS <http://www.getmangos.org/>
 3  *
 4  * Copyright (C) 2008 - 2011 TrinityCore <http://www.trinitycore.org/>
 5  *
 6  * Copyright (C) 2011 TrilliumEMU <http://www.trilliumemu.org/>
 7  *
 8  * This program is free software; you can redistribute it and/or modify it
 9  * under the terms of the GNU General Public License as published by the
10  * Free Software Foundation; either version 2 of the License, or (at your
11  * option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful, but WITHOUT
14  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15  * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16  * more details.
17  *
18  * You should have received a copy of the GNU General Public License along
19  * with this program. If not, see <http://www.gnu.org/licenses/>.
20  */
21 
22 /* ContentData
23 npc_prophet_velen
24 npc_captain_selana
25 EndContentData */
26 
27 #include "ScriptPCH.h"
28 #include "sunwell_plateau.h"
29 
30 /*######
31 ## npc_prophet_velen
32 ######*/
33 
34 enum ProphetSpeeches
35 {
36     PROPHET_SAY1 = -1580099,
37     PROPHET_SAY2 = -1580100,
38     PROPHET_SAY3 = -1580101,
39     PROPHET_SAY4 = -1580102,
40     PROPHET_SAY5 = -1580103,
41     PROPHET_SAY6 = -1580104,
42     PROPHET_SAY7 = -1580105,
43     PROPHET_SAY8 = -1580106
44 };
45 
46 enum LiadrinnSpeeches
47 {
48     LIADRIN_SAY1 = -1580107,
49     LIADRIN_SAY2 = -1580108,
50     LIADRIN_SAY3 = -1580109
51 };
52 
53 /*######
54 ## npc_captain_selana
55 ######*/
56 
57 #define CS_GOSSIP1 "Give me a situation report, Captain."
58 #define CS_GOSSIP2 "What went wrong?"
59 #define CS_GOSSIP3 "Why did they stop?"
60 #define CS_GOSSIP4 "Your insight is appreciated."
61 
62 void AddSC_sunwell_plateau()
63 {
64 }

 1 /*
 2  *  linux/arch/m68k/hp300/time.c
 3  *
 4  *  Copyright (C) 1998 Philip Blundell <philb@gnu.org>
 5  *
 6  *  This file contains the HP300-specific time handling code.
 7  */
 8 
 9 #include <asm/ptrace.h>
10 #include <linux/types.h>
11 #include <linux/init.h>
12 #include <linux/sched.h>
13 #include <linux/kernel_stat.h>
14 #include <linux/interrupt.h>
15 #include <asm/machdep.h>
16 #include <asm/irq.h>
17 #include <asm/io.h>
18 #include <asm/system.h>
19 #include <asm/traps.h>
20 #include <asm/blinken.h>
21 
22 /* Clock hardware definitions */
23 
24 #define CLOCKBASE   0xf05f8000
25 
26 #define CLKCR1      0x1
27 #define CLKCR2      0x3
28 #define CLKCR3      CLKCR1
29 #define CLKSR       CLKCR2
30 #define CLKMSB1     0x5
31 #define CLKMSB2     0x9
32 #define CLKMSB3     0xD
33 
34 /* This is for machines which generate the exact clock. */
35 #define USECS_PER_JIFFY (1000000/HZ)
36 
37 #define INTVAL ((10000 / 4) - 1)
38 
39 static irqreturn_t hp300_tick(int irq, void *dev_id)
40 {
41     unsigned long tmp;
42     irq_handler_t vector = dev_id;
43     in_8(CLOCKBASE + CLKSR);
44     asm volatile ("movpw %1@(5),%0" : "=d" (tmp) : "a" (CLOCKBASE));
45     /* Turn off the network and SCSI leds */
46     blinken_leds(0, 0xe0);
47     return vector(irq, NULL);
48 }
49 
50 unsigned long hp300_gettimeoffset(void)
51 {
52   /* Read current timer 1 value */
53   unsigned char lsb, msb1, msb2;
54   unsigned short ticks;
55 
56   msb1 = in_8(CLOCKBASE + 5);
57   lsb = in_8(CLOCKBASE + 7);
58   msb2 = in_8(CLOCKBASE + 5);
59   if (msb1 != msb2)
60     /* A carry happened while we were reading.  Read it again */
61     lsb = in_8(CLOCKBASE + 7);
62   ticks = INTVAL - ((msb2 << 8) | lsb);
63   return (USECS_PER_JIFFY * ticks) / INTVAL;
64 }
65 
66 void __init hp300_sched_init(irq_handler_t vector)
67 {
68   out_8(CLOCKBASE + CLKCR2, 0x1);       /* select CR1 */
69   out_8(CLOCKBASE + CLKCR1, 0x1);       /* reset */
70 
71   asm volatile(" movpw %0,%1@(5)" : : "d" (INTVAL), "a" (CLOCKBASE));
72 
73   if (request_irq(IRQ_AUTO_6, hp300_tick, IRQ_FLG_STD, "timer tick", vector))
74     pr_err("Couldn't register timer interrupt\n");
75 
76   out_8(CLOCKBASE + CLKCR2, 0x1);       /* select CR1 */
77   out_8(CLOCKBASE + CLKCR1, 0x40);      /* enable irq */
78 }

 1 using NHibernate.Engine;^M
 2 using NHibernate.Type;^M
 3 using NUnit.Framework;^M
 4 ^M
 5 namespace NHibernate.Test.TypesTest^M
 6 {^M
 7     // http://jira.nhibernate.org/browse/NH-1473^M
 8     [TestFixture]^M
 9     public class EntityTypeFixture : TypeFixtureBase^M
10     {^M
11         protected override string TypeName^M
12         {^M
13             get { return "Entity"; }^M
14         }^M
15 ^M
16         [Test]^M
17         public void Compare()^M
18         {^M
19             EntityType type = (EntityType) NHibernateUtil.Entity(typeof (EntityClass));^M
20 ^M
21             EntityClass a = new EntityClass(1);^M
22             EntityClass b = new EntityClass(2);^M
23 ^M
24             EntityClass ca = new ComparableEntityClass(1);^M
25             EntityClass cb = new ComparableEntityClass(2);^M
26 ^M
27             Assert.AreEqual(-1, type.Compare(a, cb, EntityMode.Poco));^M
28             Assert.AreEqual(-1, type.Compare(ca, b, EntityMode.Poco));^M
29             Assert.AreEqual(-1, type.Compare(ca, cb, EntityMode.Poco));^M
30 ^M
31             Assert.AreEqual(1, type.Compare(b, ca, EntityMode.Poco));^M
32             Assert.AreEqual(1, type.Compare(cb, a, EntityMode.Poco));^M
33             Assert.AreEqual(1, type.Compare(cb, ca, EntityMode.Poco));^M
34 ^M
35             Assert.AreEqual(0, type.Compare(ca, a, EntityMode.Poco));^M
36             Assert.AreEqual(0, type.Compare(a, ca, EntityMode.Poco));^M
37         }^M
38 ^M
39         [Test]^M
40         public void Equals()^M
41         {^M
42             EntityType type = (EntityType) NHibernateUtil.Entity(typeof (EntityClass));^M
43 ^M
44             EntityClass a = new EntityClass(1);^M
45             EntityClass b = new EntityClass(2);^M
46             EntityClass c = new EntityClass(1);^M
47 ^M
48             Assert.IsTrue(type.IsEqual(a, a, EntityMode.Poco, (ISessionFactoryImplementor) sessions));^M
49             Assert.IsFalse(type.IsEqual(a, b, EntityMode.Poco, (ISessionFactoryImplementor) sessions));^M
50             Assert.IsTrue(type.IsEqual(a, c, EntityMode.Poco, (ISessionFactoryImplementor) sessions));^M
51         }^M
52     }^M
53 }^M

 1 /*
 2  * File: pn_dev.h
 3  *
 4  * Phonet network device
 5  *
 6  * Copyright (C) 2008 Nokia Corporation.
 7  *
 8  * This program is free software; you can redistribute it and/or
 9  * modify it under the terms of the GNU General Public License
10  * version 2 as published by the Free Software Foundation.
11  *
12  * This program is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
20  * 02110-1301 USA
21  */
22 
23 #ifndef PN_DEV_H
24 #define PN_DEV_H
25 
26 struct phonet_device_list {
27     struct list_head list;
28     struct mutex lock;
29 };
30 
31 struct phonet_device_list *phonet_device_list(struct net *net);
32 
33 struct phonet_device {
34     struct list_head list;
35     struct net_device *netdev;
36     DECLARE_BITMAP(addrs, 64);
37     struct rcu_head rcu;
38 };
39 
40 int phonet_device_init(void);
41 void phonet_device_exit(void);
42 int phonet_netlink_register(void);
43 struct net_device *phonet_device_get(struct net *net);
44 
45 int phonet_address_add(struct net_device *dev, u8 addr);
46 int phonet_address_del(struct net_device *dev, u8 addr);
47 u8 phonet_address_get(struct net_device *dev, u8 addr);
48 int phonet_address_lookup(struct net *net, u8 addr);
49 void phonet_address_notify(int event, struct net_device *dev, u8 addr);
50 
51 int phonet_route_add(struct net_device *dev, u8 daddr);
52 int phonet_route_del(struct net_device *dev, u8 daddr);
53 void rtm_phonet_notify(int event, struct net_device *dev, u8 dst);
54 struct net_device *phonet_route_get_rcu(struct net *net, u8 daddr);
55 struct net_device *phonet_route_output(struct net *net, u8 daddr);
56 
57 #define PN_NO_ADDR  0xff
58 
59 extern const struct file_operations pn_sock_seq_fops;
60 extern const struct file_operations pn_res_seq_fops;
61 
62 #endif

 1 (in-package :postmodern)
 2 
 3 (defun ensure-prepared (connection id query)
 4   "Make sure a statement has been prepared for this connection."
 5   (let ((meta (connection-meta connection)))
 6     (unless (gethash id meta)
 7       (setf (gethash id meta) t)
 8       (prepare-query connection (symbol-name id) query))))
 9 
10 (let ((next-id 0))
11   (defun next-statement-id ()
12     "Provide unique statement names."
13     (incf next-id)
14     (intern (format nil "STATEMENT-~A" next-id) :keyword)))
15 
16 (defun generate-prepared (function-form query format)
17   "Helper macro for the following two functions."
18   (destructuring-bind (reader result-form) (reader-for-format format)
19     (let ((base `(exec-prepared *database* (symbol-name statement-id) params ,reader)))
20       `(let ((statement-id (next-statement-id))
21              (query ,(real-query query)))
22         (,@function-form (&rest params)
23           (ensure-prepared *database* statement-id query)
24          (,result-form ,base))))))
25 
26 (defmacro prepare (query &optional (format :rows))
27   "Wraps a query into a function that will prepare it once for a
28 connection, and then execute it with the given parameters. The query
29 should contain a placeholder \($1, $2, etc) for every parameter."
30   (generate-prepared '(lambda) query format))
31 
32 (defmacro defprepared (name query &optional (format :rows))
33   "Like perpare, but gives the function a name instead of returning
34 it."
35   (generate-prepared `(defun ,name) query format))
36 
37 (defmacro defprepared-with-names (name (&rest args)
38                   (query &rest query-args)
39                   &optional (format :rows))
40   "Like defprepared, but with lambda list for statement arguments."
41   (let ((prepared-name (gensym "STATEMENT")))
42     `(progn
43        (defprepared ,prepared-name ,query ,format)
44        (defun ,name ,args
45      (,prepared-name ,@query-args)))))

 1 ;;; magit-simple-keys.el --- simple keybindings for Magit
 2 
 3 ;; Copyright (C) 2011  Ramkumar Ramachandra
 4 ;;
 5 ;; Magit is free software; you can redistribute it and/or modify it
 6 ;; under the terms of the GNU General Public License as published by
 7 ;; the Free Software Foundation; either version 3, or (at your option)
 8 ;; any later version.
 9 ;;
10 ;; Magit is distributed in the hope that it will be useful, but WITHOUT
11 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
12 ;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
13 ;; License for more details.
14 ;;
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with Magit.  If not, see <http://www.gnu.org/licenses/>.
17 
18 ;;; Commentary:
19 
20 ;; This plug-in overrides the keybindings in magit-key-mode with
21 ;; simpler keybindings; it does this by picking the most obviously
22 ;; used command in each key group
23 
24 ;;; Code:
25 
26 (require 'magit)
27 
28 (defvar magit-key-mode-mapping
29   '((logging magit-display-log)
30     (running magit-shell-command)
31     (fetching magit-fetch-current)
32     (pushing magit-push)
33     (pulling magit-pull)
34     (branching magit-checkout)
35     (tagging magit-tag)
36     (stashing magit-stash)
37     (merging magit-merge)
38     (submodule magit-submodule-update)))
39 
40 (defun magit-key-mode-generate (term mapping-function)
41   "Generate alias for the key-group term"
42   (eval
43    `(defalias ',(intern (concat "magit-key-mode-popup-" (symbol-name term)))
44     mapping-function)))
45 
46 ;; generate the aliases using the mapping in key-mode-mapping
47 (mapc (lambda (g)
48         (magit-key-mode-generate (car g) (cadr g)))
49       magit-key-mode-mapping)
50 
51 (provide 'magit-simple-keys)
52 ;;; magit-simple-keys.el ends here

 1 %%
 2 %% %CopyrightBegin%
 3 %% 
 4 %% Copyright Ericsson AB 1999-2009. All Rights Reserved.
 5 %% 
 6 %% The contents of this file are subject to the Erlang Public License,
 7 %% Version 1.1, (the "License"); you may not use this file except in
 8 %% compliance with the License. You should have received a copy of the
 9 %% Erlang Public License along with this software. If not, it can be
10 %% retrieved online at http://www.erlang.org/.
11 %% 
12 %% Software distributed under the License is distributed on an "AS IS"
13 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14 %% the License for the specific language governing rights and limitations
15 %% under the License.
16 %% 
17 %% %CopyrightEnd%
18 %%
19 %%
20 %%-----------------------------------------------------------------
21 %% File: tracer.erl
22 %% 
23 %% Description:
24 %%    This file contains an example of pre and post conditions for 
25 %%    the corba backend.
26 %%
27 %%-----------------------------------------------------------------
28 -module(tracer).
29 -include("m.hrl").
30 
31 %%-----------------------------------------------------------------
32 %% External exports
33 %%-----------------------------------------------------------------
34 -export([pre/3, post/4]).
35 
36 %%-----------------------------------------------------------------
37 %% Internal exports
38 %%-----------------------------------------------------------------
39 -export([]).
40 
41 %%-----------------------------------------------------------------
42 %% External functions
43 %%-----------------------------------------------------------------
44 pre(M, F, [State, I]) when is_integer(I) ->
45     io:format("Precond called in process ~p: ~s:~s() ~p\n", [self(), M, F,  [State, I]]),
46     ok;
47 pre(_M, _F, _A) -> %% Just an silly example to get an exception case
48     corba:raise(#'m_NotAnInteger'{}).
49 
50 post(M, F, A, R) ->
51     io:format("Postcond called in process ~p: ~s:~s() ~p ~p\n", [self(), M, F, A, R]),
52     ok.
53 
54 %%-----------------------------------------------------------------
55 %% Internal functions
56 %%-----------------------------------------------------------------

 1 %%
 2 %% %CopyrightBegin%
 3 %%
 4 %% Copyright Ericsson AB 2003-2011. All Rights Reserved.
 5 %%
 6 %% The contents of this file are subject to the Erlang Public License,
 7 %% Version 1.1, (the "License"); you may not use this file except in
 8 %% compliance with the License. You should have received a copy of the
 9 %% Erlang Public License along with this software. If not, it can be
10 %% retrieved online at http://www.erlang.org/.
11 %%
12 %% Software distributed under the License is distributed on an "AS IS"
13 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14 %% the License for the specific language governing rights and limitations
15 %% under the License.
16 %%
17 %% %CopyrightEnd%
18 %%
19 
20 -define(attr_table,ct_attributes).
21 -define(conn_table,ct_connections).
22 -define(board_table,ct_boards).
23 -define(suite_table,ct_suite_data).
24 
25 -record(conn, {handle,
26          targetref,
27          address,
28          callback}).
29 
30 -record(testspec, {spec_dir,
31              nodes=[],
32        init=[],
33        label=[],
34        logdir=["."],
35        cover=[],
36        config=[],
37        userconfig=[],
38        event_handler=[],
39        ct_hooks=[],
40        include=[],
41        multiply_timetraps=[],
42        scale_timetraps=[],
43        alias=[],
44        tests=[],
45        merge_tests = true }).
46 
47 -record(cover, {app=none,
48     level=details,
49     excl_mods=[],
50     incl_mods=[],
51     cross=[],
52     src=[]}).
53 
54 -define(CT_EVMGR, ct_event).
55 -define(CT_EVMGR_REF, ct_event).
56 -define(CT_MEVMGR, ct_master_event).
57 -define(CT_MEVMGR_REF, ct_master_event).
58 
59 -define(missing_suites_info, "missing_suites.info").
60 -define(ct_config_txt, ct_config_plain).

 1 -- | Boot process of Yi, as an instanciation of Dyre
 2 module Yi.Boot (yi, yiDriver, reload) where
 3 
 4 import qualified Config.Dyre as Dyre
 5 import qualified Config.Dyre.Options as Dyre
 6 import Config.Dyre.Relaunch
 7 import Control.Monad.State
 8 import qualified Data.Rope as R
 9 import System.Directory
10 import System.Environment
11 import System.Exit
12 
13 import Yi.Config
14 import Yi.Editor
15 import Yi.Keymap
16 import Yi.Main
17 import qualified Yi.UI.Common as UI
18 
19 realMain :: (Config, ConsoleConfig) -> IO ()
20 realMain configs = do
21     editor <- restoreBinaryState Nothing
22     main configs editor
23 
24 showErrorsInConf :: (Config, ConsoleConfig) -> String -> (Config, ConsoleConfig)
25 showErrorsInConf (conf, confcon) errs
26     = (conf { initialActions = (makeAction $ splitE >> newBufferE (Left "*errors*") (R.fromString errs)) : initialActions conf }
27       , confcon)
28 
29 yi, yiDriver :: Config -> IO ()
30 yi = yiDriver
31 
32 yiDriver cfg = do
33     args <- Dyre.withDyreOptions Dyre.defaultParams getArgs 
34     -- we do the arg processing before dyre, so we can extract '--ghc-option=' and '--help' and so on.
35     case do_args cfg args of
36         Left (Err err code) ->
37           do putStrLn err
38              exitWith code
39         Right (finalCfg, cfgcon) -> 
40             let yiParams = Dyre.defaultParams
41                             { Dyre.projectName  = "yi"
42                             , Dyre.realMain     = realMain
43                             , Dyre.showError    = showErrorsInConf
44                             , Dyre.configDir    = Just . getAppUserDataDirectory $ "yi"
45                             , Dyre.hidePackages = ["mtl"]
46                             , Dyre.ghcOpts      = ["-threaded", "-O2"] ++ ghcOptions cfgcon
47                             }
48             in Dyre.wrapMain yiParams (finalCfg, cfgcon)
49 
50 reload :: YiM ()
51 reload = do
52     editor <- withEditor get
53     withUI (\ui -> UI.end ui False)
54     liftIO $ relaunchWithBinaryState (Just editor) Nothing
55 

 1 package org.bukkit.command;
 2 
 3 import java.util.ArrayList;
 4 import java.util.List;
 5 import java.util.Map;
 6 import java.util.Map.Entry;
 7 
 8 import org.bukkit.plugin.Plugin;
 9 
10 public class PluginCommandYamlParser {
11 
12     @SuppressWarnings("unchecked")
13     public static List<Command> parse(Plugin plugin) {
14         List<Command> pluginCmds = new ArrayList<Command>();
15         Object object = plugin.getDescription().getCommands();
16 
17         if (object == null) {
18             return pluginCmds;
19         }
20 
21         Map<String, Map<String, Object>> map = (Map<String, Map<String, Object>>) object;
22 
23         if (map != null) {
24             for (Entry<String, Map<String, Object>> entry : map.entrySet()) {
25                 Command newCmd = new PluginCommand(entry.getKey(), plugin);
26                 Object description = entry.getValue().get("description");
27                 Object usage = entry.getValue().get("usage");
28                 Object aliases = entry.getValue().get("aliases");
29                 Object permission = entry.getValue().get("permission");
30 
31                 if (description != null) {
32                     newCmd.setDescription(description.toString());
33                 }
34 
35                 if (usage != null) {
36                     newCmd.setUsage(usage.toString());
37                 }
38 
39                 if (aliases != null) {
40                     List<String> aliasList = new ArrayList<String>();
41 
42                     if (aliases instanceof List) {
43                         for (Object o : (List<Object>) aliases) {
44                             aliasList.add(o.toString());
45                         }
46                     } else {
47                         aliasList.add(aliases.toString());
48                     }
49 
50                     newCmd.setAliases(aliasList);
51                 }
52 
53                 if (permission != null) {
54                     newCmd.setPermission(permission.toString());
55                 }
56 
57                 pluginCmds.add(newCmd);
58             }
59         }
60         return pluginCmds;
61     }
62 }

 1 // Copyright 2011 the V8 project authors. All rights reserved.
 2 // Redistribution and use in source and binary forms, with or without
 3 // modification, are permitted provided that the following conditions are
 4 // met:
 5 //
 6 //     * Redistributions of source code must retain the above copyright
 7 //       notice, this list of conditions and the following disclaimer.
 8 //     * Redistributions in binary form must reproduce the above
 9 //       copyright notice, this list of conditions and the following
10 //       disclaimer in the documentation and/or other materials provided
11 //       with the distribution.
12 //     * Neither the name of Google Inc. nor the names of its
13 //       contributors may be used to endorse or promote products derived
14 //       from this software without specific prior written permission.
15 //
16 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
17 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
18 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
19 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
20 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
21 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
22 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
26 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 
28 // Flags: --expose-gc --nocleanup_code_caches_at_gc
29 
30 function f(x) {
31   gc();
32   arguments[0] = {};
33 }
34 
35 f(1);
36 f(1);
37 f(1);

 1 module(..., package.seeall);
 2 require('vector')
 3 --require('vcm')
 4 
 5 -- Camera Parameters
 6 
 7 camera = {};
 8 camera.ncamera = 1;
 9 camera.switchFreq = 0; --unused for OP
10 camera.width = 640;
11 camera.height = 480;
12 camera.x_center = 328;
13 camera.y_center = 248;
14 
15 camera.focal_length = 533; -- in pixels
16 camera.focal_base = 640; -- image width used in focal length calculation
17 
18 --[[
19 queryctrl: "White Balance Temperature" 0x98091a
20 queryctrl: "Sharpness" 0x98091b
21 queryctrl: "Backlight Compensation" 0x98091c
22 queryctrl: "Exposure, Auto" 0x9a0901
23 querymenu: Auto Mode
24 querymenu: Manual Mode
25 querymenu: Shutter Priority Mode
26 querymenu: Aperture Priority Mode
27 queryctrl: "Exposure (Absolute)" 0x9a0902
28 queryctrl: "Exposure, Auto Priority" 0x9a0903
29 queryctrl: "Pan (Absolute)" 0x9a0908
30 queryctrl: "Tilt (Absolute)" 0x9a0909
31 queryctrl: "Brightness" 0x980900
32 queryctrl: "Contrast" 0x980901
33 queryctrl: "Saturation" 0x980902
34 queryctrl: "White Balance Temperature, Auto" 0x98090c
35 queryctrl: "Gain" 0x980913
36 queryctrl: "Power Line Frequency" 0x980918
37 --]]
38 
39 camera.auto_param = {};
40 camera.auto_param[1] = {key='exposure, auto',          val={0}};
41 camera.auto_param[2] = {key='white balance temperature, auto',     val={0}};
42 camera.auto_param[3] = {key='power line frequency',   val={0}};
43 camera.auto_param[4] = {key='backlight compensation', val={0}};
44 --camera.auto_param[5] = {key='autogain',               val={0}};
45 
46 
47 camera.param = {};
48 camera.param[1] = {key='brightness',    val={216}};
49 camera.param[2] = {key='contrast',      val={2}};
50 camera.param[3] = {key='saturation',    val={48}};
51 camera.param[4] = {key='gain',          val={255}};
52 camera.param[5] = {key='white balance temperature', val={1000}};
53 camera.param[6] = {key='sharpness',     val={0}};
54 camera.param[7] = {key='exposure (absolute)',      val={1005}};
55 
56 camera.lut_file = 'lut_low_contrast_pink_n_green.raw';
57